home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / dvlprstc.hqx / Developer Stack 1.3r / card_19050.txt < prev    next >
Text File  |  1991-04-30  |  3KB  |  92 lines
  1. -- card: 19050 from stack: in.3r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2202
  5. -- name: osErr
  6. ----- HyperTalk script -----
  7. on OsErr err
  8.   if err > 0 then -- XFCN convention
  9.     put "Parameter error with function" into errstr
  10.   else if err is -59 then
  11.     put "Problem during rename" into errstr
  12.   else if err is -54 then
  13.     put "Attempt to open locked file for writing" into errstr
  14.   else if err is -46 then
  15.     put "Volume locked by software" into errstr
  16.   else if err is -45 then
  17.     put "File locked" into errstr
  18.   else if err is -44 then
  19.     put "Volume locked by hardware" into errstr
  20.   else if err is -43 then
  21.     put "File not found" into errstr
  22.   else if err is -37 then
  23.     put "Bad volume or file name" into errstr
  24.   else if err is -36 then
  25.     put "I/O error" into errstr
  26.   else if err is -35 then
  27.     put "No such volume" into errstr
  28.   else if err is -34 then
  29.     put "Disk is full" into errstr
  30.   else if err is -49 then
  31.     put "File already open for writing" into errstr
  32.   else
  33.     put "Failed with error" && err into errstr
  34.   end if
  35.   answer errstr with "OK"
  36. end OsErr
  37.  
  38.  
  39.  
  40. -- part contents for background part 10
  41. ----- text -----
  42. 7
  43.  
  44. -- part contents for background part 3
  45. ----- text -----
  46. osErr
  47.  
  48. -- part contents for background part 2
  49. ----- text -----
  50. --NOTE: Handlers are included in the Function section for convenience.
  51. --
  52. -- OsErr: for displaying Operating system error codes returned by
  53. -- Sublaunch, RenameFile, MoveFile and DeleteFile, deProtect XFCNs & XCMDs.
  54. -- From Dewi Williams
  55. --
  56. on OsErr err
  57.   -- Translate the most common ones
  58.   if err > 0 then -- XFCN convention
  59.     put "Parameter error with function" into errstr
  60.   else if err is -59 then
  61.     put "Problem during rename" into errstr
  62.   else if err is -54 then
  63.     put "Attempt to open locked file for writing" into errstr
  64.   else if err is -46 then
  65.     put "Volume locked by software" into errstr
  66.   else if err is -45 then
  67.     put "File locked" into errstr
  68.   else if err is -44 then
  69.     put "Volume locked by hardware" into errstr
  70.   else if err is -43 then
  71.     put "File not found" into errstr
  72.   else if err is -37 then
  73.     put "Bad volume or file name" into errstr
  74.   else if err is -36 then
  75.     put "I/O error" into errstr
  76.   else if err is -35 then
  77.     put "No such volume" into errstr
  78.   else if err is -34 then
  79.     put "Disk is full" into errstr
  80.   else if err is -49 then
  81.     put "File already open for writing" into errstr
  82.   else
  83.     put "Failed with error" && err into errstr
  84.   end if
  85.   answer errstr with "OK"
  86. end OsErr
  87.  
  88.  
  89.  
  90. -- part contents for background part 19
  91. ----- text -----
  92. Functions